home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
CAD
/
PKEY11_1.ARJ
/
CKEE.MNU
< prev
next >
Wrap
Lisp/Scheme
|
1992-03-14
|
73KB
|
3,209 lines
***BUTTONS
;
'REDRAW
^C^C
[B-5]END,MID,CEN,INT,QUI;\
[B-6]NEA;\
[B-7]PERP;\
[B-8]QUAD;\
[B-9]^C^CZQ;
[B-10]^C^CZS;
[B-11]'ZOOM;P;
[B-12]'ZOOM;W;
[B-13]
[B-14]
[B-15]
[B-16]
***AUX1
;
$p1=*
^C^C
^B
^O
^G
^D
^E
^T
***POP1
[Tools]
[OSNAP]^C^C$p1= $p1=* OSNAP \
CENter
ENDpoint
INSert
[INTersection]INT
MIDpoint
NEArest
NODe
[PERpendicular]PER
QUAdrant
[QUICK,]QUICK,^Z$p1=*
TANgent
NONE
[~--]
[FILTERS... ]$p1=filters $p1=*
[Cancel]^C^C
[U]^C^CU
[Redo]^C^CREDO
[List]^C^CLIST
**FILTERS
[Filters]
.X
.Y
.Z
.XY
.XZ
.YZ
[TOOLS...]$p1= $p1=*
***POP2
[Draw]
[Line]*^C^C$S=X $s=line line
[Arc]*^C^C$S=X $s=poparc arc
[Circle]*^C^C$S=X $s=popcircl circle
[Polyline]*^C^C$S=X $s=pline pline
[3D Polyline]*^C^C$S=X $S=3dpoly 3dpoly
[Insert]^C^Csetvar attdia 1 $S=X $s=insert
[Dtext]*^C^C$S=X $s=Dtext Dtext
[Hatch...]^C^C$i=hatch1 $i=*
[3D Construction...]$i=3dobjects $i=*
***POP3
[Modify]
[Erase]*^C^C$S=X $s=erase erase si auto
[Move]*^C^C$S=X $s=move move si auto
[Copy]*^C^C$S=X $s=copy copy si auto
[Properties]*^C^C$S=X $S=chprop chprop si auto
[Break]*^C^C$S=X $S=break break
[Fillet]*^C^C$S=X $S=fillet fillet
[Mirror]*^C^C$S=X $S=mirror mirror auto
[Trim]*^C^C$S=X $s=trim trim auto
[Extend]*^C^C$S=X $s=extend extend auto
[Stretch]*^C^C$S=X $s=stretch stretch crossing
[Edit Polylines]^C^C^P+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
***POP4
[Display]
[Redraw]'redraw
[~--]
[Zoom Window]'zoom w
[Zoom Previous]'zoom p
[Zoom All]^C^Czoom a
[Zoom Dynamic]'zoom d
[~--]
[Pan]'pan
[Dview Options...]^C^C$i=dviewi $i=*
[Vpoint 3D...]^C^C$S=X $S=VPOINT3D $i=3dviews $i=*
[~--]
[Plan View (UCS)]^C^Cplan;;
[Plan View (World)]^C^Cplan wo
[~--]
[Set Viewports...]^C^C$S=X $S=vports $i=vporti $i=*
***POP5
[Settings]
[UCS Dialogue...]^C^C$S=X $s=ucs1 dducs
[UCS Options...]^C^C$S=X $S=ucs1 $i=ucs $i=*
[UCS Previous]^C^CUCS P
[~--]
[Drawing Aids...]'ddrmodes
[Entity Creation...]'ddemodes
[Modify Layer...]'ddlmodes
***POP6
[Options]
[Ashade...]^C^C^P(progn(setq m:err *error*)(princ))+
(defun *error* (msg)(princ msg)(setq *error* m:err m:err nil)(princ))+
(cond ((null C:SCENE)(vmon)(if (/= nil (findfile "ashade.lsp"));+
(progn (terpri)(prompt "Please wait... Loading ashade. ")(load "ashade")+
(menucmd "I=AS")(menucmd "I=*")(setq *error* m:err m:err nil))(progn (terpri);+
(prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
(terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
(setq *error* m:err m:err nil)(princ))))+
(T (setq *error* m:err m:err nil)(menucmd "I=AS")(menucmd "I=*")(princ))) ^P
[Fonts...]^C^C$i=fonts1 $i=*
***POP7
[File ]
[Save ]^C^CSave;
[End ]^C^Cend
[Quit ]^C^C$S=X $s=quit quit
[~-- ]
[Plot ]^C^Cplot
[Print]^C^Cprplot
***POP8
[UTILITY]
[TOOLS]$P8=NEWPOP9 $P8=*
[SETUP]$P8=NEWPOP10 $P8=*
[~--]
[Utility]
[TEXT EDITOR]^C^C^P(cond((null C:TC)(prompt "Loading...")(LOAD"TC.LSP")) (T (princ))) ^ptc;
[~--]
[TEXT LEADER]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD"KY.LSP")) (T (princ))) ^PLD;
[~--]
[MULTI-EXTEND]^C^C^P(cond((null C:ET)(prompt "Loading...")(LOAD"ET.LSP")) (T (princ))) ^PET;E;
[MULTI-TRIM]^C^C^P(cond((null C:ET)(prompt "Loading...")(LOAD"ET.LSP")) (T (princ))) ^PET;T;
[~--]
[MID POINT](MPL)
[ OF TWO ](MPL)
[ POINTS ](MPL)
***NEWPOP9
[Tools]
[~--]
[draw col. grid]^C^C^P(cond((null C:COL)(prompt "Loading...")(LOAD"COL.LSP")) (T (princ))) ^PCOL;
[wall]^C^Cwl;
[wall center]^C^Cwc;
[door]$i=drsel1 $i=*
[Res. window]^C^C^P(cond((null C:rw)(prompt "Loading...")(LOAD"rw.LSP")) (T (princ))) ^Prw;
[Com. window]^C^C^P(cond((null C:CW)(prompt "Loading...")(LOAD"CW.LSP")) (T (princ))) ^Pcw;
[Furniture]$I=FURN $I=*
[~--]
[PREV. PULLDOWN]^C^C$P8=pop8 $P8=*
***NEWPOP10
[SETUP]
[~--]
[scientfc]^C^C^p(setq a 1);$P8=STDSTP $P8=*
[decimal ]^C^C^p(setq a 2);$P8=STDSTP $P8=*
[enginrng]^C^C^p(setq a 3);$P8=STDSTP $P8=*
[archtect]^C^C^p(setq a 4);$P8=STDSTP $P8=*
[metric ]^C^C^p(setq a 5);$P8=STDSTP $P8=*
[~--]
[PREV. PULLDOWN]^C^C$P8=pop8 $P8=*
***ICON
**POLY
[Set Polymesh and Polyline Variables]
[acad(pmq)]'setvar surftype 5
[acad(pmc)]'setvar surftype 6
[acad(pmb)]'setvar surftype 8
[acad(plq)]'setvar splinetype 5
[acad(plc)]'setvar splinetype 6
[ Set SPLINESEGS]'setvar splinesegs \
[ Set SPLFRAME]'setvar splframe \
[ Set DENSITY]'setvar surfu \'setvar surfv \
[ Exit]$p3=pop3
**AS
[Select Ashade Command]
[acad(camera)]^C^C$S=X $S=CAMERA camera \\\$i=as $i=*
[acad(camview)]^C^C$S=X $S=ASHADE camview
[acad(point)]^C^C$S=X $S=LIGHTS LIGHT \p \$i=as $i=*
[acad(directed)]^C^C$S=X $S=LIGHTS LIGHT \d \\$i=as $i=*
[acad(scene)]^C^C$S=X $S=ACTION scene
[acad(filmroll)]^C^C$S=X $S=ACTION filmroll
[ Exit]^c^c
**UCS
[User Coordinate System Options]
[ Set to World]^C^Cucs world
[acad(left)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
ucs 3p \@0,-1,0 @0,0,1 ^P
[ Set to Screen]^C^Cucs view
[acad(top)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
ucs 3p \@1,0,0 @0,1,0 ^P
[acad(front)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
ucs 3p \@1,0,0 @0,0,1 ^P
[acad(bottom)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
ucs 3p \@1,0,0 @0,-1,0 ^P
[acad(back)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
ucs 3p \@-1,0,0 @0,0,1 ^P
[acad(right)]^c^c^P(setvar"lastpoint"(trans(getvar"ucsorg")0 1))(princ) +
ucs 3p \@0,1,0 @0,0,1 ^P
[ Exit]^c^c
**3DVIEWS
[Select View Direction]
[acad(ul)]^C^CVPOINT R;<<135;
[acad(l)]^C^CVPOINT R;<<180;
[acad(ll)]^C^CVPOINT R;<<225;
[acad(user)]
[acad(u)]^C^CVPOINT R;<<90;
[acad(p)]^C^Cvpoint 0,0,1
[acad(lo)]^C^CVPOINT R;<<270;
[acad(user)]
[acad(ur)]^C^CVPOINT R;<<45;
[acad(r)]^C^CVPOINT R;<<0;
[acad(lr)]^C^CVPOINT R;<<315;
[acad(user)]
[acad(t)]VPOINT;;
[acad(h)]$S=X $S=HIDE
[ Exit]^c^c
**DVIEWI
[DVIEW Options]
[acad(dvca)]^C^C$S=X $S=DVIEW select;\dview;p;;ca;\\;
[acad(dvzo)]^C^C$S=X $S=DVIEW select;\dview;p;;z;\;
[acad(dvpa)]^C^C$S=X $S=DVIEW select;\dview;p;;pa;\\;
[ Exit]^c^c
**3DOBJECTS
[3D Objects and 3D Surface Commands]
[acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(rev)]^C^C$S=X $S=3D revsurf
[acad(surftab1)]'setvar surftab1 \$I=*
[acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(rul)]^C^C$S=X $S=3D rulesurf
[acad(surftab2)]'setvar surftab2 \$I=*
[acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(dish)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(edg)]^C^C$S=X $S=3D edgesurf
[acad(mesh)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:MESH))(C:MESH))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
(defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
"The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.")+
(princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ)));+
(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(prin1))(m:l3d)(princ) ^P
[acad(tab)]^C^C$S=X $S=3D tabsurf
[ Exit]^c^c
**FONTS1
[Select Text Font]
[acad(romans)]^c^cstyle romans romans
[acad(romanc)]^c^cstyle romanc romanc
[acad(italicc)]^c^cstyle italicc italicc
[acad(romand)]^c^cstyle romand romand
[acad(romant)]^c^cstyle romant romant
[acad(italict)]^c^cstyle italict italict
[acad(monotxt)]^c^cstyle monotxt monotxt
[ Next]$i=fonts2 $i=*
[ Exit]^c^c
**FONTS2
[Select Text Font]
[acad(gothice)]^c^cstyle gothice gothice
[acad(greeks)]^c^cstyle greeks greeks
[acad(scripts)]^c^cstyle scripts scripts
[acad(gothicg)]^c^cstyle gothicg gothicg
[acad(greekc)]^c^cstyle greekc greekc
[acad(scriptc)]^c^cstyle scriptc scriptc
[acad(gothici)]^c^cstyle gothici gothici
[ Next]$i=fonts3 $i=*
[ Exit]^c^c
**FONTS3
[Select Text Font]
[acad(syastro)]^c^cstyle syastro syastro
[acad(symath)]^c^cstyle symath symath
[acad(symusic)]^c^cstyle symusic symusic
[acad(symap)]^c^cstyle symap symap
[acad(symeteo)]^c^cstyle symeteo symeteo
[acad(txt)]^c^cstyle txt txt
[acad(user)]
[ Beginning]$i=fonts1 $i=*
[ Exit]^c^c
**HATCH1
[Select Hatch Pattern]
[ Previous/User]^c^chatch
[acad(ansi31)]^c^chatch ansi31
[acad(ansi32)]^c^chatch ansi32
[acad(ansi34)]^c^chatch ansi34
[acad(ansi35)]^c^chatch ansi35
[acad(ansi33)]^c^chatch ansi33
[acad(ansi36)]^c^chatch ansi36
[acad(ansi37)]^c^chatch ansi37
[acad(ansi38)]^c^chatch ansi38
[acad(box)]^c^chatch box
[acad(brass)]^c^chatch brass
[acad(brick)]^c^chatch brick
[acad(clay)]^c^chatch clay
[acad(cork)]^c^chatch cork
[ Next]$i=hatch2 $i=*
[ Exit]^c^c
**HATCH2
[Select Hatch Pattern]
[acad(cross)]^c^chatch cross
[acad(dash)]^c^chatch dash
[acad(dolmit)]^c^chatch dolmit
[acad(dots)]^c^chatch dots
[acad(earth)]^c^chatch earth
[acad(escher)]^c^chatch escher
[acad(flex)]^c^chatch flex
[acad(grass)]^c^chatch grass
[acad(grate)]^c^chatch grate
[acad(hex)]^c^chatch hex
[acad(honey)]^c^chatch honey
[acad(hound)]^c^chatch hound
[acad(insul)]^c^chatch insul
[acad(line)]^c^chatch line
[ Next]$i=hatch3 $i=*
[ Exit]^c^c
**HATCH3
[Select Hatch Pattern]
[acad(mudst)]^c^chatch mudst
[acad(net)]^c^chatch net
[acad(net3)]^c^chatch net3
[acad(plast)]^c^chatch plast
[acad(plasti)]^c^chatch plasti
[acad(sacncr)]^c^chatch sacncr
[acad(square)]^c^chatch square
[acad(stars)]^c^chatch stars
[acad(steel)]^c^chatch steel
[acad(swamp)]^c^chatch swamp
[acad(trans)]^c^chatch trans
[acad(triang)]^c^chatch triang
[acad(zigzag)]^c^chatch zigzag
[acad(angle)]^c^chatch angle
[ Beginning]$i=hatch1 $i=*
[ Exit]^c^c
**VPORTI
[Viewport Settings (Current is dominant)]
[acad(vp1)]^C^CVPORTS;SI
[acad(vp3v)]^C^CVPORTS;SI;;3;v
[acad(vp3h)]^C^CVPORTS;SI;;3;h
[acad(vp4)]^C^CVPORTS;SI;;4
[acad(vp2v)]^C^CVPORTS;SI;;2;v
[acad(vp3r)]^C^CVPORTS;SI;;3;r
[acad(vp3l)]^C^CVPORTS;SI;;3;l
[acad(vp4l)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
VPORTS;SI;;2;;(setvar "CVPORT" (car (cadr (vports))))(princ);;2;;;J;;+
(car (cadr (vports)));(setvar "CVPORT" (car (cadr (vports))))(princ)+
;;3;h;(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT"+
(car (cadddr (vports))))(setvar "gridmode" m:g)(princ);ZOOM;A;+
(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)(princ);+
ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))(setvar "gridmode" m:g)+
(princ);ZOOM;A;UNDO;E ^P
[acad(vp2h)]^C^CVPORTS;SI;;2;h
[acad(vp3a)]^C^CVPORTS;SI;;3;a;
[acad(vp3b)]^C^CVPORTS;SI;;3;b;
[acad(vp4r)]^C^C^PUNDO;M;(setq m:g (getvar "gridmode"));SETVAR;GRIDMODE;0;+
VPORTS;SI;;2;;;2;;(setvar "CVPORT" (car (caddr (vports))));;j;;+
(car (caddr (vports)));(setvar "CVPORT" (car (cadr (vports))));;3;h;+
(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
(setvar "gridmode" m:g)(princ);ZOOM;A;(setvar "CVPORT" (car (cadddr (vports))))+
(setvar "gridmode" m:g)(princ);ZOOM;A;UNDO;E ^P
[ Join Viewports]^C^CVPORTS;J
[ Restore Saved]^C^CVPORTS;R;
[ List Saved]^C^CVPORTS;?;
[ Exit]^c^c
**DRSEL1
[Door selection, PAGE 1]
[sym1(dr1)](setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr8)]^P(setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr2)]^P(setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr7)]^P(setq DRBLK "door2");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr4)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr6)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr3)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr5)]^P(setq DRBLK "door1");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr9)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr10)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr11)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr12)]^P(setq DRBLK "door3");^C^C^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[ NEXT]$i=drsel2 $i=*
[ EXIT]^c^c
**DRSEL2
[Door selection, PAGE 2]
[sym1(dr13)](setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr14)]^P(setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr15)]^P(setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr16)]^P(setq DRBLK "door4");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr17)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr18)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr19)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr20)]^P(setq DRBLK "door5");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr21)]^P(setq DRBLK "door6");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr22)]^P(setq DRBLK "door6")(princ);^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr23)]^P(setq DRBLK "door6")(princ);^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr24)]^P(setq DRBLK "door6");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[ NEXT]$i=drsel3 $i=*
[ EXIT]^c^c
**DRSEL3
[Door selection, PAGE 3]
[sym1(dr25)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr26)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr27)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr28)]^P(setq DRBLK "door7");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr29)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr30)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr31)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr32)]^P(setq DRBLK "door8");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr33)]^P(setq DRBLK "door9");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr34)]^P(setq DRBLK "door9");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr35)]^P(setq DRBLK "door9");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[sym1(dr36)]^P(setq DRBLK "door10");^P(cond((null C:DR)(prompt "Loading...")(LOAD"dr.LSP")) (T (princ)))
[ NEXT]$i=drsel3 $i=*
[ EXIT]^c^c
**PLMSEL1
[Plumbing selection]
[sym1(p1)]
[sym1(p2)]
[sym1(p3)]
[sym1(p4)]
[sym1(p5)]
[sym1(p6)]
[ EXIT]^c^c
**FURN
[FURNITURE DETAILS]
[FURN(F0001)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0001;\;
[FURN(F0002)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0002;\;
[FURN(F0003)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0003;\;
[FURN(F0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0004;\;
[FURN(F0005)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0005;\;
[FURN(F0006)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0006;\;
[FURN(F0007)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0007;\;
[FURN(F0008)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0008;\;
[FURN(F0009)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FIXT0009;\;
[FURN(FN0001)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0001;\;
[FURN(FN0002)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0002;\;
[FURN(FN0003)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0003;\;
[ NEXT]^c^c$I=FURN2 $I=*
[ EXIT]^c^c
**FURN2
[FURNITURE DETAILS]
[FURN(FN0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0004;\;
[FURN(FN0005)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0005;\;
[FURN(FN0006)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0006;\;
[FURN(FN0007)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0007;\;
[FURN(FN0008)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0008;\;
[FURN(FN0009)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0009;\;
[FURN(FN0010)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0010;\;
[FURN(FN0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0011;\;
[FURN(FN0012)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0012;\;
[FURN(FN0013)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0013;\;
[FURN(FN0014)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0014;\;
[FURN(FN0015)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0015;\;
[FURN(FN0016)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0016;\;
[ NEXT]^c^c$I=FURN3 $I=*
[ EXIT]^c^c
**FURN3
[FURNITURE DETAILS]
[FURN(FN0017)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0017;\;
[FURN(FN0008)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0018;\;
[FURN(FN0019)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0019;\;
[FURN(FN0020)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0020;\;
[FURN(FN0021)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0021;\;
[FURN(FN0022)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0022;\;
[FURN(FN0023)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0023;\;
[FURN(FN0024)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0024;\;
[FURN(FN0025)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0025;\;
[FURN(FN0026)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0026;\;
[FURN(FN0027)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0027;\;
[FURN(FN0028)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0028;\;
[FURN(FN0029)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0029;\;
[FURN(FN0030)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0030;\;
[FURN(FN0031)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0031;\;
[ NEXT]^c^c$I=FURN4 $I=*
[ EXIT]^c^c
**FURN4
[FURNITURE DETAILS]
[FURN(FN0032)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0032;\;
[FURN(FN0033)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/FURN0033;\;
[FURN(LD0001)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0001;\;
[FURN(LD0002)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0002;\;
[FURN(LD0003)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0003;\;
[FURN(LD0004)]*^C^CLAYER;M;F1;;insert;c:/KESYM1/LAND0004;\;
[ BEGINNING]^c^c$I=FURN $I=*
[ EXIT]^c^c
**SHTSZE
[SHEET SIZE]
[8.5 x 11]^c^c^p(setq cx 8.5)(setq cy 11.0) (LOAD"sp")
[11 x 17]^c^c^p(setq cx 17.0)(setq cy 11.0) (LOAD"sp")
[18 x 24]^c^c^p(setq cx 24.0)(setq cy 18.0) (LOAD"sp")
[24 x 36]^c^c^p(setq cx 36.0)(setq cy 24.0) (LOAD"sp")
[30 x 42]^c^c^p(setq cx 42.0)(setq cy 30.0) (LOAD"sp")
[36 x 48]^c^c^p(setq cx 48.0)(setq cy 36.0) (LOAD"sp")
[~--]
[BEGINNING]^C^C$P8=POP8 $P8=*
**STDSTP
[SCALE]
[~--]
[1/16" = 1'-0"](SETQ b 192) $P8=SHTSZE $P8=*
[1/8" = 1'-0"](SETQ b 96) $P8=SHTSZE $P8=*
[1/4" = 1'-0"](SETQ b 48) $P8=SHTSZE $P8=*
[3/8" = 1'-0"](SETQ b 32) $P8=SHTSZE $P8=*
[1/2" = 1'-0"](SETQ b 24) $P8=SHTSZE $P8=*
[3/4" = 1'-0"](SETQ b 16) $P8=SHTSZE $P8=*
[ 1" = 1'-0"](SETQ b 12) $P8=SHTSZE $P8=*
[1 1/2"= 1'-0"](SETQ b 8) $P8=SHTSZE $P8=*
[ 3" = 1'-0"](SETQ b 4) $P8=SHTSZE $P8=*
[ FULL SIZE ](SETQ b 1) $P8=SHTSZE $P8=*
[PREV. PULLDOWN]^C^C$P8=NEWPOP10 $P8=*
***SCREEN
**S
[AutoCAD]^C^C$S=X $S=S $P1=POP1 $P3=POP3
[* * * *]$S=OSNAPB
[Setup]^C^C^P(progn(prompt "Loading setup... ")(load "setup")) ^P$S=X $S=UNITS
[BLOCKS]$S=X $S=BL
[DIM:]$S=X $S=DIM ^C^CDIM
[DISPLAY]$S=X $S=DS
[DRAW]$S=X $S=DR
[EDIT]$S=X $S=ED
[INQUIRY]$S=X $S=INQ
[LAYER:]$S=X $S=LAYER ^C^CLAYER
[SETTINGS]$S=X $S=SET
[PLOT]$S=X $S=PLOT
[UCS:]$S=X $S=UCS1 ^C^CUCS
[UTILITY]$S=X $S=UT
[3D]$S=X $S=3D
[ASHADE]^C^C^P(progn(setq m:err *error*)(prin1))(defun *error* (msg)(princ msg)+
(setq *error* m:err m:err nil)(princ))(cond ((null C:SCENE)(vmon)+
(if (/= nil (findfile "ashade.lsp"))(progn (terpri);+
(prompt "Please wait... Loading ashade. ")(load "ashade")+
(menucmd "S=X")(menucmd "S=ASHADE")(setq *error* m:err m:err nil))(progn (terpri);+
(prompt "The file 'Ashade.lsp' was not found in your current search directories.")+
(terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
(setq *error* m:err m:err nil)(princ))))+
(T (setq *error* m:err m:err nil)(menucmd "S=X")(menucmd "S=ASHADE")(princ))) ^P
[SAVE:]^C^CSAVE
**X 3
[__LAST__]$S= $S=
[ DRAW ]^C^C$S=X $S=DR
[ EDIT ]^C^C$S=X $S=ED
**BL 3
[ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
[BASE:]^C^CBASE
[BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
[INSERT:]$S=X $S=INSERT ^C^CINSERT
[MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
[WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
**DS 3
[ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
[DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
[PAN:]'PAN
[PLAN:]$S=X $S=PLAN ^C^CPLAN
[REDRAW:]'REDRAW
[REDRALL:]'REDRAWALL
[REGEN:]^C^CREGEN
[REGNALL:]^C^CREGENALL
[RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
[VIEW:]$S=X $S=VIEW 'VIEW
[VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
[VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
[ZOOM:]$S=X $S=ZOOM 'ZOOM
**DR 3
[ARC]$S=X $S=ARC
[ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
[CIRCLE]$S=X $S=CIRCLE
[DONUT:]^C^CDONUT
[DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
[ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
[HATCH:]$S=X $S=HATCH ^C^CHATCH
[INSERT:]$S=X $S=INSERT ^C^CINSERT
[LINE:]$S=X $S=LINE ^C^CLINE
[MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
[OFFSET:]$S=X $S=OFFSET ^C^COFFSET
[PLINE:]$S=X $S=PLINE ^C^CPLINE
[next]$S=X $S=DR2
**DR2 3
[POINT:]$S=X $S=POINT ^C^CPOINT
[POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
[SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
[SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
[SOLID:]$S=X $S=SOLID ^C^CSOLID
[TEXT:]$S=X $S=TEXT ^C^CTEXT
[TRACE:]$S=X $S=TRACE ^C^CTRACE
[3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
[3D]$S=X $S=3D
[previous]$S=X $S=DR
[__LAST__]$S= $S=
**ED 3
[ARRAY:]$S=X $S=ARRAY ^C^CARRAY
[ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
[DDATTE:]^C^CDDATTE
[BREAK:]$S=X $S=BREAK ^C^CBREAK
[CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
[CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
[CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
[COPY:]$S=X $S=COPY ^C^CCOPY
[DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
[ERASE:]$S=X $S=ERASE ^C^CERASE
[EXPLODE:]^C^CEXPLODE
[EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
[next]$S=X $S=ED2
**ED2 3
[FILLET:]$S=X $S=FILLET ^C^CFILLET
[MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
[MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
[MOVE:]$S=X $S=MOVE ^C^CMOVE
[OFFSET:]$S=X $S=OFFSET ^C^COFFSET
[PEDIT:]^C^C^P+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
[ROTATE:]$S=X $S=ROTATE ^C^CROTATE
[SELECT:]$S=X $S=SELECT ^C^CSELECT
[SCALE:]$S=X $S=SCALE ^C^CSCALE
[STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
[TRIM:]$S=X $S=TRIM ^C^CTRIM
[UNDO:]$S=X $S=UNDO ^C^CUNDO
[previous]$S=X $S=ED
**INQ 5
[AREA:]$S=X $S=AREA ^C^CAREA
[DBLIST:]^CDBLIST
[DIST:]^C^CDIST
[HELP:]'HELP
[ID:]$S=X $S=ID ^C^CID
[LIST:]$S=X $S=LIST ^C^CLIST
[STATUS:]^C^CSTATUS
[TIME:]^C^CTIME
**SET 3
[DDEMODES]'DDEMODES
[DDRMODES]'DDRMODES
[--------]
[APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
[AXIS:]$S=X $S=AXIS ^C^CAXIS
[BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
[COLOR:]$S=X $S=COLOR ^C^CCOLOR
[DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
[ELEV:]^C^CELEV
[GRID:]$S=X $S=GRID ^C^CGRID
[HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
[LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
[LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
[next]$S=X $S=SET2
**SET2 3
[LTSCALE:]^C^CLTSCALE
[OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
[QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
[SETVAR:]$S=X $S=SETVAR 'SETVAR
[SNAP:]$S=X $S=SNAP ^C^CSNAP
[STYLE:]$S=X $S=STYLE ^C^CSTYLE
[TABLET:]$S=X $S=TABLET ^C^CTABLET
[UCS:]$S=X $S=UCS1 ^C^CUCS
[UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
[UNITS:]^CUNITS
[VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
[previous]$S=X $S=SET
**PLOT 3
[ C D]
[ H E]
[ O V]
[ O I]
[ S C]
[ E E]
[PLOTTER]^C^CPLOT
[PRINTER]^C^CPRPLOT
**UT 3
[ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
[DXF/DXB]$S=X $S=DXF
[FILES:]^C^CFILES
[IGES]$S=X $S=IGES
[MENU:]$S=X $S=CHTEMP ^C^CMENU
[PURGE:]$S=X $S=PURGE ^C^CPURGE
[RENAME:]$S=X $S=RENAME ^C^CRENAME
[SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
[SLIDES]$S=X $S=SLIDES
[External]$S=X $S=EXCOMDS
[Commands]$S=X $S=EXCOMDS
[END]$S=X $S=END
[QUIT]$S=X $S=QUIT
**OSNAPB 2
[ HELP ]$S= 'help
[CENter]CENTER $S=
[ENDpoint]ENDPOINT $S=
[INSert]INSERT $S=
[INTersec]INTERSEC $S=
[MIDpoint]MIDPOINT $S=
[NEArest]NEAREST $S=
[NODe]NODE $S=
[PERpend]PERPEND $S=
[QUAdrant]QUADRANT $S=
[QUICK,]QUICK,^Z
[TANgent]TANGENT $S=
[NONE]NONE $S=
[CANCEL:]^C^C$S=
[U:]^C^CU $S=
[REDO:]^C^CREDO $S=
[REDRAW:]'REDRAW $S=
[SETVAR:]$S= 'SETVAR
[__LAST__]$S=
**BLOCK 3
[BLOCK:]^C^CBLOCK
?
Window
Last
Previous
Crossing
Remove
Add
Yes
[OOPS]^C^COOPS
**INSERT 3
[INSERT:]*^C^CINSERT
?
[*]*\
corner
xyz
drag
Scale
Xscale
Yscale
Zscale
Rotate
**WBLOCK 3
[WBLOCK:]^C^CWBLOCK
=
*
[blank];
Window
Last
Previous
Crossing
Remove
Add
Undo
**MINSERT 3
[MINSERT:]^C^CMINSERT
?
corner
xyz
drag
**DIM 3
[DIM:]^C^CDIM
[DIM1:]^C^CDIM1
[LINEAR]$S=X $S=DIMLINEAR
angular
diameter
radius
center
leader
[Dim Vars]$S=X $S=VAR1
[redraw]'REDRAW
status
undo
style
[EXIT]EXIT;$S=X $S=S
[next]$S=X $S=FORMAT
**DIMLINEAR 3
[DIM:]^C^CDIM
[DIM1:]^C^CDIM1
horiz
vertical
aligned
rotated
[baseline]^C^Cdim BASE
[continue]^C^Cdim CONT
[previous]$S=X $S=DIM
**ATTDEF 3
[ATTDEF:]^C^CATTDEF
Invisibl
Constant
Verify
[Preset]P
Aligned
[Centered]C
Fit
Middle
Right
Style
**LAYER 3
[DDLMODES]'DDLMODES
[LAYER:]^C^CLAYER
[?]? *
Make
Set
New
ON
OFF
[Color]COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
[Chroma]^C^CVSLIDE chroma
[ Restore]'REDRAW
[Ltype]LTYPE $S=X $S=LALT \$S=X $S=LAYER
Freeze
Thaw
**LACOLOR 3
[COLOR]
red
yellow
green
cyan
blue
magenta
white
**LALT 3
[LINETYPE]
[contin.]CONTINUOUS
dashed
hidden
center
phantom
dot
dashdot
border
divide
**ZOOM 3
[ZOOM:]'ZOOM
All
[Center]C
Dynamic
Extents
Left
Previous
Window
Yes
No
**ATTDISP 3
[ATTDISP:]^C^CATTDISP
Normal
ON
OFF
**DVIEW 3
[DVIEW:]^C^CDview
Window
Last
Previous
Crossing
Remove
Add
[By Layer]^P(defun berror (msg)(setq *error* m:err m:err nil)(princ))+
(progn (setq m:err *error* *error* berror);+
(setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
(if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
(setq s(ssget "X" (list(cons 8 l)))))(setq *error* m:err m:err nil) s) ^P
[--------]
[Dviewblk]^C^CDVIEW;;
[ Dview ]$S=X $S=DVIEW1
[Options]$S=X $S=DVIEW1
**DVIEW1 3
CAmera
TArget
Distance
POints
PAn
Zoom
TWist
[CLip]Clip $S=X $S=DVIEW2
Hide
Off
Undo
[eXit]Exit $S=X $S=S
**DVIEW2 3
[Back]Back $S=X $S=BACK
[Front]Front $S=X $S=FRONT
[Off]Off $S=X $S=DVIEW1
**BACK 3
[ back]
[clipping]
[ON]On $S=X $S=DVIEW1
[OFF]Off $S=X $S=DVIEW1
**FRONT 3
[ front]
[clipping]
[ON]On $S=X $S=DVIEW1
[OFF]Off $S=X $S=DVIEW1
[Eye]Eye $S=X $S=DVIEW1
**RGNAUTO 3
[RGNAUTO:]^C^CREGENAUTO
[ON]On $S=X $S=DS
[OFF]Off $S=X $S=DS
**VIEW 3
[VIEW:]'VIEW
?
[Delete]Delete;
[Restore]Restore;
[Save]Save;
[Window]Window;
**VPORTS 3
[VPORTS:]^C^CVPORTS
Save
Restore
Delete
Join
Single
?
[2]2 $S=X $S=VP2
[3]3 $S=X $S=VP3
4
**VP2 3
[Horizont]H $S=X $S=VPORTS
[Vertical]V $S=X $S=VPORTS
**VP3 3
[Horizont]H $S=X $S=VPORTS
[Vertical]V $S=X $S=VPORTS
[Above]A $S=X $S=VPORTS
[Below]B $S=X $S=VPORTS
[Left]L $S=X $S=VPORTS
[Right]R $S=X $S=VPORTS
**LINE 3
[LINE:]^C^CLINE
[continue]^C^CLINE;;
close
undo
.x
.y
.z
.xy
.xz
.yz
**3D 3
[EDGSURF:]^C^CEDGESURF
[REVSURF:]^C^CREVSURF
[RULSURF:]^C^CRULESURF
[TABSURF:]^C^CTABSURF
[Surftb1:]'SETVAR SURFTAB1
[Surftb2:]'SETVAR SURFTAB2
[3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
[3DMESH:]^C^C3DMESH
[3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
[ 3d ]^C^C^P(progn(setq m:err *error*)(princ))+
(defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
"The file `3d.lsp' was not found in your search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.");+
(princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
(T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
(menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
[objects]^C^C^P(progn(setq m:err *error*)(princ))+
(defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
(progn (terpri)(prompt "Please wait... Loading 3D Objects. ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
"The file `3d.lsp' was not found in your search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.");+
(princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ))+
(T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
(menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
**3D2 3
Box
Cone
Dish
Dome
Mesh
Pyramid
Sphere
Torus
Wedge
**ELEVTHK 3
[ELEV:]^C^CELEV
[CHANGE:]^C^CCHANGE
Window
Last
Previous
Crossing
Remove
Add
Undo
[Elev]PROP E
[Thick]PROP T
**HIDE 3
[HIDE ?]
[YES]^C^CHIDE
[NO]$S= $S=
**VPOINT 3
[VPOINT:]^C^CVPOINT
[rotate]rotate;
[axes];
[plan]none 0,0,1
[HIDE:]$S=X $S=HIDE
**VPOINT3D 3
[ Angle ]^C^CVPOINT R;;
[from XY ]^C^CVPOINT R;;
[ Plane ]^C^CVPOINT R;;
[ +80 ]<<80
[ +60 ]<<60
[ +45 ]<<45
[ +30 ]<<30
[ +10 ]<<10
[ 0 ]<<0.0000001
[ -10 ]<<350
[ -30 ]<<330
[ -45 ]<<315
[ -60 ]<<300
[ -80 ]<<280
**PLINE 3
[PLINE:]^C^CPLINE
[Arc]ARC $S=X $S=PARC
Close
Halfwid
Length
Undo
Width
[FILL ON]'SETVAR FILLMODE 1
[FILL OFF]'SETVAR FILLMODE 0
**PARC 3
[POLYARC]
[angle]$S=X $S=PARCANG A
[CEnter]$S=X $S=PARCEN CE
[tanDir]D \DRAG
[Radius]$S=X $S=PARCRAD R
[2nd PT]S \DRAG
[CLose]$S=X $S=PLINE CLOSE
undo
[contline]$S=X $S=PLINE L
[PLINE:]$S=X $S=PLINE ^C^CPLINE
**PARCANG 3
[ANGLE]
[center]$S=X $S=PARC Center drag
[radius]$S=X $S=PARC R \
[drag]$S=X $S=PARC drag
**PARCEN 3
[CENTER]
[angle]$S=X $S=PARC A drag
[length]$S=X $S=PARC L drag
[drag]$S=X $S=PARC drag
**PARCRAD 3
[RADIUS]
[angle]A \drag $S=X $S=PARC A \drag
[drag]$S=X $S=PARC drag
**OFFSET 3
[OFFSET:]^C^COFFSET
Through
[done];
**ARC 3
[ARC]
[3-point:]^C^CARC \\DRAG
[S,C,E:]^C^CARC \C \DRAG
[S,C,A:]^C^CARC \C \A DRAG
[S,C,L:]^C^CARC \C \L DRAG
[S,E,A:]^C^CARC \E \A
[S,E,R:]^C^CARC \E \R
[S,E,D:]^C^CARC \E \D DRAG
[C,S,E:]^C^CARC C \\DRAG
[C,S,A:]^C^CARC C \\A DRAG
[C,S,L:]^C^CARC C \\L DRAG
[CONTIN:]^C^CARC ;DRAG
**POPARC 3
[ARC]
[3-point:]*^C^CARC \\DRAG
[S,C,E:]*^C^CARC \C \DRAG
[S,C,A:]*^C^CARC \C \A DRAG
[S,C,L:]*^C^CARC \C \L DRAG
[S,E,A:]*^C^CARC \E \A
[S,E,R:]*^C^CARC \E \R
[S,E,D:]*^C^CARC \E \D DRAG
[C,S,E:]*^C^CARC C \\DRAG
[C,S,A:]*^C^CARC C \\A DRAG
[C,S,L:]*^C^CARC C \\L DRAG
[CONTIN:]^C^CARC ;DRAG
**CIRCLE 3
[CIRCLE]
[CEN,RAD:]^C^CCIRCLE \DRAG
[CEN,DIA:]^C^CCIRCLE \D
[2 POINT:]^C^CCIRCLE 2P \DRAG
[3 POINT:]^C^CCIRCLE 3P \\DRAG
[TTR:]^C^CCIRCLE TTR
**POPCIRCL 3
[CIRCLE]
[CEN,RAD:]*^C^CCIRCLE \DRAG
[CEN,DIA:]*^C^CCIRCLE \D
[2 POINT:]*^C^CCIRCLE 2P \DRAG
[3 POINT:]*^C^CCIRCLE 3P \\DRAG
[TTR:]*^C^CCIRCLE TTR
**ASHADE 3
[LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
[CAMERA:]^C^C$S=X $S=CAMERA CAMERA
[ACTION]^C^C$S=X $S=ACTION
[CAMVIEW:]^C^CCAMVIEW
**LIGHTS 3
[LIGHT:]^C^CLIGHT
[Point]p
Directed
[Filters]
.x
.y
.z
.xy
.xz
.yz
[CAMERA:]^C^C$S=X $S=CAMERA CAMERA
[ACTION]$S=X $S=ACTION
**CAMERA 3
[CAMERA:]^C^CCAMERA
[Filters]
.x
.y
.z
.xy
.xz
.yz
[CAMVIEW:]^C^CCAMVIEW
[LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
[ACTION]$S=X $S=ACTION
**ACTION 3
[ACTION]
[SCENE:]^C^CSCENE
[FLMROLL:]^C^CFILMROLL
[LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
[CAMERA:]^C^C$S=X $S=CAMERA CAMERA
**ELLIPSE 3
[ELLIPSE:]^C^CELLIPSE
[Center]C
Rotation
Iso
Diameter
**POLYGON 3
[POLYGON:]^C^CPOLYGON
Edge
[I-scribe]I
[C-scribe]C
**SHAPE 3
[SHAPE:]^C^CSHAPE
?
[LOAD:]^C^CLOAD
?
**SKETCH 3
[SKETCH:]^C^CSKETCH
Connect
Erase
Record
[eXit]x
Quit
[------]
[SKPOLY:]'SETVAR SKPOLY 1
[SKLINE:]'SETVAR SKPOLY 0
[------]
**SOLID 3
[SOLID:]^C^CSOLID
[FILL ON]'SETVAR FILLMODE 1
[FILL OFF]'SETVAR FILLMODE 0
**TRACE 3
[TRACE:]^C^CTRACE
[FILL ON]'SETVAR FILLMODE 1
[FILL OFF]'SETVAR FILLMODE 0
**POINT 3
[POINT:]^C^CPOINT
.x
.y
.z
.xy
.xz
.yz
[Complex]
[Points]
[example:]^C^CVSLIDE points
[remove]^C^CREDRAW
[example:]^C^CREDRAW
[Pdmode:]'SETVAR PDMODE
[Pdsize:]'SETVAR PDSIZE
**HATCH 3
[HATCH:]^C^CHATCH
?
u
u,o
u,i
Yes
Window
Last
Previous
Crossing
Remove
Add
Undo
**3DFACE 3
[3DFACE:]^C^C3DFACE
.x
.y
.z
.xy
.xz
.yz
[Invisibl]I
[ShowEdge]^P(setvar "splframe" 1)(prompt "Invisible edges will be SHOWN after next Regeneration.")(princ) ^P
[HideEdge]^P(setvar "splframe" 0)(prompt "Invisible edges will be HIDDEN after next Regeneration.")(princ) ^P
**3DPOLY 3
[3DPOLY:]^C^C3DPOLY
Close
Undo
.x
.y
.z
.xy
.xz
.yz
**ID 3
[ID:]^C^CID
.x
.y
.z
.xy
.xz
.yz
**LIMITS 3
[LIMITS:]^C^CLIMITS
ON
OFF
**UCS1 3
[UCS:]^C^CUCS
[DDUCS:]^C^CDDUCS
?
Previous
Restore
[Save]S
Delete
World
[RENAME:]^C^CRename UCS
[Follow:]'SETVAR UCSFOLLOW
[next]$S=X $S=UCS2
**UCS2 3
[UCS:]$S=X $S=UCS1 ^C^CUCS
Origin
Zaxis
3point
X
Y
Z
View
Entity
[previous]$S=X $S=UCS1
**UCSICON 3
[UCSICON:]^C^CUCSICON
ON
OFF
All
Origin
Noorigin
**PLAN 3
[PLAN:]^C^CPLAN
Current
UCS
World
[Follow:]'SETVAR UCSFOLLOW
**LIST 3
[LIST:]^C^CLIST
Window
Last
Previous
Crossing
Remove
Add
Undo
**AREA 3
[AREA:]^C^CAREA
Entity
Add
Subtract
**TEXT 3
[TEXT:]^C^CTEXT
[DTEXT:]^C^CDTEXT
aligned
[centered]C
fit
middle
right
style
[STYLE:]$S=X $S=STYLE ^C^CSTYLE
**TEXTSET 5
[DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
[REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2
[STYLE:]$S=X $S=STYLE ^C^CSTYLE
**STYLE 3
[STYLE:]^C^CSTYLE
?
[Fonts]$S=X $S=F1
Yes
No
[DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
[TEXT:]$S=X $S=TEXT ^C^CTEXT
**F1 3
Cyrillic
Cyriltlc
Greekc
Greeks
Gothice
Gothicg
Gothici
Italicc
Italict
Romanc
Romand
Romans
[next]$S=X $S=F2
[STYLMNU]$S=X $S=STYLE
**F2 3
Romant
Scriptc
Scripts
Syastro
Symap
Symath
Symeteo
Symusic
[previous]$S=X $S=F1
[STYLMNU]$S=X $S=STYLE
**DTEXT 3
[DTEXT:]^C^CDTEXT
[TEXT:]^C^CTEXT
[centered]C
right
aligned
middle
fit
style
[STYLE:]$S=X $S=STYLE ^C^CSTYLE
**AXIS 3
[AXIS:]^C^CAXIS
[axs=snap]SNAP
ON
OFF
Aspect
**BLIPMODE 3
[BLIPS:]^C^CBLIPMODE
ON
OFF
**END 3
END ?
[Yes]^C^CEND
[No]$S=X $S=S
**QUIT 3
[QUIT:]^c^cquit
[Yes]Y
[No]n $S=X $S=S
**VAR1 3
[dimalt]$S=X $S=OF DIMALT \
[dimaltd]DIMALTD \
[dimaltf]DIMALTF \
[dimapost]DIMAPOST \
[dimaso]$S=X $S=OF DIMASO \
[dimasz]DIMASZ \
[--------]
[dimblk]DIMBLK \
[dimblk1]DIMBLK1 \
[dimblk2]DIMBLK2 \
[--------]
[dimcen]DIMCEN \
[dimdle]DIMDLE \
[dimdli]DIMDLI \
[dimexe]DIMEXE \
[next]$S=X $S=VAR2
[DIMMENU]$S=X $S=DIM
**VAR2 3
[dimexo]DIMEXO \
[dimlfac]DIMLFAC \
[dimlim]$S=X $S=OF DIMLIM \
[dimpost]DIMPOST \
[dimrnd]DIMRND \
[dimsah]$S=X $S=OF DIMSAH \
[dimscale]DIMSCALE \
[dimse1]$S=X $S=OF DIMSE1 \
[dimse2]$S=X $S=OF DIMSE2 \
[dimsho]$S=X $S=OF DIMSHO \
[dimsoxd]$S=X $S=OF DIMSOXD \
[dimtad]$S=X $S=OF DIMTAD \
[dimtih]$S=X $S=OF DIMTIH \
[dimtix]$S=X $S=OF DIMTIX \
[previous]$S=X $S=VAR1
[next]$S=X $S=VAR3
[DIMMENU]$S=X $S=DIM
**VAR3 3
[dimtm]DIMTM \
[dimtofl]$S=X $S=OF DIMTOFL \
[dimtoh]$S=X $S=OF DIMTOH \
[dimtol]$S=X $S=OF DIMTOL \
[dimtp]DIMTP \
[dimtsz]DIMTSZ \
[dimtvp]DIMTVP \
[dimtxt]DIMTXT \
[dimzin]$S=X $S=DIMZIN DIMZIN \
[previous]$S=X $S=VAR2
[DIMMENU]$S=X $S=DIM
**OF 3
[ON]$S= $S= ON
[OFF]$S= $S= OFF
**DIMZIN 4
[ New]
[ Dimzin]
[ Value]
[0]$S= $S= 0
[1]$S= $S= 1
[2]$S= $S= 2
[3]$S= $S= 3
**FORMAT 3
[DIM:]^C^CDIM
[DIM1:]^C^CDIM1
[HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
[UPDATE]$S=X $S=UPDATE UPDATE
[NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
[DIMMENU]$S=X $S=DIM
**HOMETEXT 3
[DIM:]^C^CDIM
[DIM1:]^C^CDIM1
HOMETEXT
Window
Last
Previous
Crossing
Remove
Add
Undo
**UPDATE 3
[DIM:]^C^CDIM
[DIM1:]^C^CDIM1
UPDATE
Window
Last
Previous
Crossing
Remove
Add
Undo
**NEWTEXT 3
[DIM:]^C^CDIM
[DIM1:]^C^CDIM1
[NEWTEXT]NEWTEXT
Window
Last
Previous
Crossing
Remove
Add
Undo
**LINETYPE 3
[LINETYP:]^C^CLINETYPE
?
Create
Load
[Set]S $S=X $S=CHLT \$S=X $=LINETYPE
Yes
No
**LIMITS 3
[LIMITS:]^C^CLIMITS
On
Off
**SNAP 3
[SNAP:]^C^CSNAP
ON
OFF
[Aspect]A;
[Rotate]R;
[Style]S;
[ Iso]Iso;
[ Standrd]Standard;
**TABLET 3
[TABLET:]^C^CTABLET
cal
[config]CFG 4 25 9 11 9 9 13 25 7 Y
[re-cfg]CFG 4 Y 25 9 11 9 9 13 25 7 Y
ON
OFF
Yes
No
**OSNAPC 3
[OSNAP:]^C^COSNAP
[CENter]CENTER\
[ENDpoint]ENDPOINT\
[INSert]INSERT\
[INTersec]INTERSEC\
[MIDpoint]MIDPOINT\
[NEArest]NEAREST\
[NODe]NODE\
[PERpend]PERPEND\
[QUAdrant]QUADRANT\
[TANgent]TANGENT\
[NONE]^C^COSNAP NONE $S= $S=
[Quick,]QUICK,^Z
[,],\
**DRAGMODE 3
[DRAGMODE]^C^CDRAGMODE
[ON]ON $S=X $S=S
[OFF]OFF $S=X $S=S
[Auto]A $S=X $S=S
**GRID 3
[GRID:]^C^CGRID
[grd=snap]SNAP
ON
OFF
Aspect
**HANDLES 3
[HANDLES:]^C^CHANDLES
[ON]ON
[DESTROY]DESTROY
**SETVAR 3
[SETVAR:]^C^CSETVAR
?
['SETVAR]'SETVAR
**QTEXT 3
[QTEXT:]^C^CQTEXT
ON
OFF
[REGEN:]REGEN
**VIEWRES 3
[VIEWRES:]^C^CVIEWRES
No
Yes
100
500
[RGNAUTO:]^C^CREGENAUTO
[ On]On
[ Off]Off
**APERTURE 3
[APERTUR:]'SETVAR APERTURE
[PICKBOX:]'SETVAR PICKBOX
[1]$S= $S= 1
[2]$S= $S= 2
[3]$S= $S= 3
[4]$S= $S= 4
[5]$S= $S= 5
[6]$S= $S= 6
[7]$S= $S= 7
[8]$S= $S= 8
[9]$S= $S= 9
[10]$S= $S= 10
[15]$S= $S= 15
**ARRAY 3
[ARRAY:]^C^CARRAY
Window
Last
Previous
Crossing
Remove
Add
Undo
Rectang
Polar
Yes
No
**ROTATE 3
[ROTATE:]^C^CROTATE
Window
Last
Previous
Crossing
Remove
Add
Undo
Referenc
**SELECT 3
[SELECT:]^C^CSELECT
Window
Last
Previous
Crossing
Remove
Add
Undo
**SCALE 3
[SCALE:]^C^CSCALE
Window
Last
Previous
Crossing
Remove
Add
Undo
Referenc
**BREAK 3
[BREAK:]^C^CBREAK
First
@
**BREAK2P 3
[BREAK:]^C^CBREAK \F
**BREAKSPL 3
[BREAK:]^C^CBREAK \F \@
**MOVE 3
[MOVE:]^C^CMOVE
Window
Last
Previous
Crossing
Remove
Add
Undo
**COPY 3
[COPY:]^C^CCOPY
Window
Last
Previous
Crossing
Remove
Add
Undo
Multiple
**UNDO 3
[UNDO:]^C^CUNDO
[Back 1]^C^CUNDO 1
[Auto]$S=X $S=UNDOA Auto
Back
End
Group
Mark
[Control]$S=X $S=UNDOC Control
Yes
No
[REDO:]REDO
**UNDOC 3
All
None
One
**UNDOA 3
On
Off
**ERASE 3
[ERASE:]^C^CERASE
Window
Last
Previous
Crossing
Remove
Add
Undo
[OOPS:]^C^COOPS
**PSEL 3
Window
Last
Crossing
Yes
No
**P0 3
[PEDIT:]^C^C^P+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pbl)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
Close
Open
Join
Width
[Ed Vrtx]E $S=X $S=PVERTED
[Fit Curv]Fit
Spline
Decurve
[Undo]U
[eXit]X $S=X $S=S
[PolyVars]$S=X $S=PVARS $i=poly $i=*
**P8 3
[PEDIT:]^C^C^P+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
Close
Open
[Ed Vrtx]E $S=X $S=3DPVERTED
Spline
Decurve
[Undo]U
[eXit]X $S=X $S=S
[PolyVars]$S=X $S=PVARS $i=poly $i=*
**P16 3
[PEDIT:]^C^C^P+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
[Ed Vrtx]E $S=X $S=3DMVERTED
Smooth
Desmooth
[Mclose]M
[Nclose]N
[Mopen]M
[Nopen]N
[Undo]U
[eXit]X $S=X $S=S
[PolyVars]$S=X $S=PVARS $i=poly $i=*
**PVERTED 3
[ED VRTX]
Next
Previous
Break
Insert
Move
Straight
Width
Tangent
Go
Regen
[Undo]X U $S=X $S=P0
[eXit]X $S=X $S=P0
**3DPVERTED 3
[ED VRTX]
Next
Previous
Break
Insert
Move
Regen
Straight
[eXit]X $S=X $S=P8
**3DMVERTED 3
[ED VRTX]
Next
Previous
Left
Right
Up
Down
Move
Regen
[eXit]X $S=X $S=P16
**PVARS 3
[Polyvars]$i=poly $i=*
[SPLframe]'SETVAR SPLFRAME
[ On]1
[ Off]0
[SPLsegs]'SETVAR SPLINESEGS
[SPLtype]'SETVAR SPLINETYPE
[ Quad]5
[ Cubic]6
[SURFtype]'SETVAR SURFTYPE
[ Quad]5
[ Cubic]6
[ Bezier]8
[UDensity]'SETVAR SURFU
[VDensity]'SETVAR SURFV
**TRIM 3
[TRIM:]^C^CTRIM
Window
Last
Previous
Crossing
Remove
Add
Undo
**ATTEXT 3
[ATTEXT:]^C^CATTEXT
CDF
SDF
DXF
[Entities]Ent
Window
Last
Previous
Crossing
Remove
Add
Undo
**SLIDES 3
[MSLIDE:]^C^CMSLIDE
[VSLIDE:]^C^CVSLIDE
**SCRIPT 3
[SCRIPT:]^C^CSCRIPT
[RESUME:]'RESUME
[RSCRIPT:]^C^CRSCRIPT
**PURGE 3
[PURGE:]^C^CPURGE
Blocks
LAyers
LTypes
SHapes
STyles
All
Yes
No
**RENAME 3
[RENAME:]^C^CRENAME
Block
LAyer
LType
Style
Ucs
VIew
VPort
**DXF 3
[DXFIN:]^C^CDXFIN
[DXFOUT:]^C^CDXFOUT
16
Entities
Window
Last
Previous
Crossing
Remove
Add
Undo
[DXBIN:]^C^CDXBIN
**IGES 3
[IGESIN:]^C^CIGESIN
[IGESOUT:]^C^CIGESOUT
**EXTEND 3
[EXTEND:]^C^CEXTEND
Window
Last
Previous
Crossing
Remove
Add
Undo
[SELECT:]^C^CSELECT
[ZOOM W:]'ZOOM W
**STRETCH 3
[STRETCH:]^C^CSTRETCH C
Window
Last
Previous
Crossing
Remove
Add
Undo
**MIRROR 3
[MIRROR:]^C^CMIRROR
Window
Last
Previous
Crossing
Remove
Add
Undo
Yes
No
**FILLET0ILLET0 3
[FILLET:0]^C^CFILLET R 0;;
[polyline]P
**FILLET 3
[FILLET:]^C^CFILLET
[radius]R \FILLET
[radius 0]R 0 FILLET
polyline
**CHAMFER 3
[CHAMFER:]^C^CCHAMFER
[distance]D \\CHAMFER
[dist = 0]D 0 0 CHAMFER
polyline
**DIVIDE 3
[DIVIDE:]^C^CDIVIDE
Block
Yes
No
**MEASURE 3
[MEASURE:]^C^CMEASURE
Block
Yes
No
**CHANGE 3
[CHANGE:]^C^CCHANGE
Window
Last
Previous
Crossing
Remove
Add
Undo
[Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
[Chroma]^C^CVSLIDE chroma
[ Restore]^C^CREDRAW
[Elev]PROP ELEV
[LAyer]PROP LAYER
[LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
[Thicknes]PROP THICKNESS
**CHPROP 3
[CHPROP:]^C^CCHPROP
Window
Last
Previous
Crossing
Remove
Add
Undo
[Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
[Chroma]^C^CVSLIDE chroma
[ Restore]^C^CREDRAW
[LAyer]PROP LAYER
[LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
[Thicknes]PROP THICKNESS
**CHCOLOR 3
[COLOR]
bylayer
byblock
red
yellow
green
cyan
blue
magenta
white
**CHLT 3
[LTYPE]
bylayer
byblock
[contin.]CONTINUOUS
dashed
hidden
center
phantom
dot
dashdot
border
divide
**COLOR 3
[COLOR:]^C^CCOLOR
bylayer
byblock
red
yellow
green
cyan
blue
magenta
white
[Chroma]^C^CVSLIDE chroma
[ Restore]^C^CREDRAW
**ATTEDIT 3
[ATTEDIT:]^C^CATTEDIT
Window
Last
Crossing
Remove
Add
Undo
[Value]Value $S=X $S=ATTEDIT2
Position
Height
Angle
Style
Layer
[Color] $S=X $S=ATTCOLOR C
Next
[__LAST__]$S= $S=
**ATTEDIT2 3
[Change]Change $S=X $S=ATTEDIT
[Replace]Replace $S=X $S=ATTEDIT
**ATTCOLOR 3
[COLOR]
[red]RED $S= $S=
[yellow]YELLOW $S= $S=
[green]GREEN $S= $S=
[cyan]CYAN $S= $S=
[blue]BLUE $S= $S=
[magenta]MAGENTA $S= $S=
[white]WHITE $S= $S=
**UNITS 2
[UNIT ]
[TYPE ]
[scientfc]1;
[decimal ]2;
[enginrng]3;
[archtect]4;
[metric ]5;
**U1 2
[Scientfc]
[Scale ]
[4 TIMES ]4.0;
[2 TIMES ]2.0;
[FULL ]1.0;
[HALF ]0.5;
[QUARTER ]0.25;
[OTHER ]^P0;^P
**U2 2
[Decimal ]
[Scale ]
[4 TIMES ]4.0;
[2 TIMES ]2.0;
[FULL ]1.0;
[HALF ]0.5;
[QUARTER ]0.25;
[OTHER ]^P0;^P
**U3 2
[Enginrng]
[Scale ]
[1"=10' ]120.0;
[1"=20' ]240.0;
[1"=30' ]360.0;
[1"=40' ]480.0;
[1"=50' ]600.0;
[1"=60' ]720.0;
[1"=80' ]960.0;
[1"=100' ]1200.0;
[OTHER ]^P0;^P
**U4 2
[Archtect]
[1/40"=1']480.0;
[1/20"=1']240.0;
[1/16"=1']192.0;
[ 1/8"=1']96.0;
[ 1/4"=1']48.0;
[ 1/2"=1']24.0;
[ 3/4"=1']16.0;
[ 1"=1']12.0;
[ 3"=1']4.0;
[ 6"=1']2.0;
[ FULL ]1.0;
[OTHER...]^P0;^P
**U5 2
[Metric ]
[ 1:5000 ]5000.0;
[ 1:2000 ]2000.0;
[ 1:1000 ]1000.0;
[ 1:500 ]500.0;
[ 1:200 ]200.0;
[ 1:100 ]100.0;
[ 1:75 ]75.0;
[ 1:50 ]50.0;
[ 1:20 ]20.0;
[ 1:10 ]10.0;
[ 1:5 ]5.0;
[ FULL ]1.0;
[OTHER...]^P0;^P
**ENGLISH 2
[Horizntl]
[ Sheet ]
[ Size ]
[A-8.5x11]11.0 8.5;
[B- 11x17]17.0 11.0;
[C- 17x22]22.0 17.0;
[ 18x24]24.0 18.0;
[D- 22X34]34.0 22.0;
[ 24x36]36.0 24.0;
[E- 34x44]44.0 34.0;
[OTHER...]^P0 0;^P
[VERTCAL>]$S=X $S=ENGVERT
**ENGVERT 2
[Vertical]
[ Sheet ]
[ Size ]
[A-8.5x11]8.5 11.0;
[B- 11x17]11.0 17.0;
[C- 17x22]17.0 22.0;
[ 18x24]18.0 24.0;
[D- 22X34]22.0 34.0;
[ 24x36]24.0 36.0;
[E- 34x44]34.0 44.0;
[OTHER...]^P0 0;^P
[HORZNTL>]$S=X $S=ENGLISH
**METRIC 2
[Horizntl]
[ Sheet ]
[ Size ]
[1189x841]1189.0 841.0;
[1000x707]1000.0 707.0;
[ 841x594]841.0 594.0;
[ 594x420]594.0 420.0;
[ 420x297]420.0 297.0;
[ 297x210]297.0 210.0;
[OTHER...]^P0 0;^P
[VERTCAL>]$S=X $S=METRICVERT
**METRICVERT 2
[Vertical]
[ Sheet ]
[ Size ]
[1189x841]841.0 1189.0;
[1000x707]707.0 1000.0;
[ 841x594]594.0 841.0;
[ 594x420]420.0 594.0;
[ 420x297]297.0 420.0;
[ 297x210]210.0 297.0;
[OTHER...]^P0 0;^P
[HORZNTL>]$S=X $S=METRIC
**CHTEMP 3
[Change ]
[Template]
[Arch...]^C^C^P(progn(if v:acam(progn(command "menu" (strcat v:acam "aec-a"))+
(prompt "AEC Architectural loaded."))(prompt "AEC Architectural not available.")+
)(princ)) ^P
[Mech...]^C^C^P(progn(if v:acmm(progn(command "menu" (strcat v:acmm "aec-m"))+
(prompt "AEC Mechanical loaded."))(prompt "AEC Mechanical not available.")+
)(princ)) ^P
**EXCOMDS 3
[CATALOG:]^C^CCATALOG
[DEL:]^C^CDEL
[DIR:]^C^CDIR
[EDIT:]^C^CEDIT
[SH:]^C^CSH
[SHELL:]^C^CSHELL
[TYPE:]^C^CTYPE
***TABLET1
[T1-1]
[T1-2]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P001;DRAG;\1;1;\
[T1-3]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P002;DRAG;\1;1;\
[T1-4]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P017;DRAG;\1;1;\
[T1-5]^C
[T1-6]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XES;NEAR;\1;1;\
[T1-7]*^C^CLAYER;M;CR;;insert;c:/KESYM1/4MRX;NEAR;\1;1;\
[T1-8]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XWJ-BOX;DRAG;\1;1;\
[T1-9]^C
[T1-10]^C
[T1-11]*^C^CLAYER;M;SA;;insert;c:/KESYM1/HVAC-1;INTE;\1;1;\
[T1-12]*^C^CLAYER;M;RA;;insert;c:/KESYM1/HVAC-3;INTE;\1;1;\
[T1-13]^C^C
[T1-14]*^C^CLAYER;M;AN;;insert;c:/KESYM1/SEC-BUB;DRAG;\1;1;\
[T1-15]^c^CLAYER;M;AN;;insert;c:/KESYM1/AT200;DRAG;\96;;0;
[T1-16]^C^CWL
[T1-17]$I=DRSEL1 $I=*
[T1-18]$I=FURN $I=*
[T1-19]^c^CLAYER;M;EQ;;insert;c:/KESYM1/REFA;DRAG;\1;1;\
[T1-20]^c^CLAYER;M;F1;;insert;c:/KESYM1/QUEEN;DRAG;\1;1;\
[T1-21]^C^C
[T1-22]^C^CLAYER;M;CG;;
[T1-23]^C^CLAYER;M;D;;
[T1-24]^C^CLAYER;M;SA;;
[T1-25]^C^CLAYER;M;AN;;
[T1-26]^C^C
[T1-27]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P003;DRAG;\1;1;\
[T1-28]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P004;DRAG;\1;1;\
[T1-29]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P018;DRAG;\1;1;\
[T1-30]^C
[T1-31]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE2;NEAR;\1;1;\
[T1-32]*^C^CLAYER;M;CR;;insert;c:/KESYM1/3MRX;NEAR;\1;1;\
[T1-33]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XCJ-BOX;DRAG;\1;1;\
[T1-34]^C
[T1-35]^C
[T1-36]*^C^CLAYER;M;D;;insert;c:/KESYM1/HVAC-2;INTE;\1;1;\
[T1-37]*^C^CLAYER;M;D;;insert;c:/KESYM1/HVAC-4;INTE;\1;1;\
[T1-38]^C
[T1-39]*^C^CLAYER;M;AN;;insert;c:/KESYM1/SEC-ARW;DRAG;\1;1;\
[T1-40]^c^cLAYER;M;AN;;insert;c:/KESYM1/AT200;DRAG;\96;;0;
[T1-41]^C^CWL
[T1-42]^C^C^P(LOAD "CW.LSP"));
[T1-43]$I=FURN $I=*
[T1-44]^c^CLAYER;M;EQ;;insert;c:/KESYM1/REFB;DRAG;\1;1;\
[T1-45]^c^CLAYER;M;F1;;insert;c:/KESYM1/QUEEN;DRAG;\1;1;\
[T1-46]^C^C
[T1-47]^C^CLAYER;M;IW;;
[T1-48]^C^CLAYER;M;DN;;
[T1-49]^C^CLAYER;M;RA;;
[T1-50]^C^CLAYER;M;EN;;
[T1-51]^C^C
[T1-52]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P005;DRAG;\1;1;\
[T1-53]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P006;DRAG;\1;1;\
[T1-54]^C^C^CLAYER;M;PF;;insert;c:/KESYM1/TUB5FT;DRAG;\1;1;\
[T1-55]^C
[T1-56]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE3;NEAR;\1;1;\
[T1-57]*^C^CLAYER;M;CR;;insert;c:/KESYM1/3W;NEAR;\1;1;\
[T1-58]*^C^CLAYER;M;LT;;insert;c:/KESYM1/2X4LITE;INTE;\1;1;\
[T1-59]^C
[T1-60]^C
[T1-61]*^C^CLAYER;M;SA;;insert;c:/KESYM1/6INFLX;NEAR;\1;1;\
[T1-62]^C^C^P(LOAD"GRD.LSP"));
[T1-63]*^C^CLAYER;M;SA;;insert;c:/KESYM1/TSTAT;DRAG;\1;1;0;
[T1-64]*^C^CLAYER;M;AN;;insert;c:/KESYM1/NA;DRAG;\1;1;\
[T1-65]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATTCIR;DRAG;\96;;0;
[T1-66]^C^CWL;6
[T1-67]^C^C^P(LOAD "RW.LSP"));
[T1-68]^C^C^P(cond((null C:RS)(prompt "Loading...")(LOAD "RS.LSP")) (T (princ))) ^PRS
[T1-69]^c^CLAYER;M;EQ;;insert;c:/KESYM1/RANGE;DRAG;\1;1;\
[T1-70]^c^CLAYER;M;F1;;insert;c:/KESYM1/TWIN;DRAG;\1;1;\
[T1-71]^C^C
[T1-72]^C^CLAYER;M;EW;;
[T1-73]^C^CLAYER;M;MW;;
[T1-74]^C^CLAYER;M;LT;;
[T1-75]^C^CLAYER;M;HN;;
[T1-76]^C^C
[T1-77]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P007;DRAG;\1;1;\
[T1-78]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P008;DRAG;\1;1;\
[T1-79]^C^C^CLAYER;M;PF;;insert;c:/KESYM1/TUB5FT6;DRAG;\1;1;\
[T1-80]^C
[T1-81]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE4;NEAR;\1;1;\
[T1-82]^C^C^CARC;\\\;;\;\
[T1-83]*^C^CLAYER;M;DL;;insert;c:/KESYM1/DEMO2X4;INTE;\1;1;\
[T1-84]^C
[T1-85]^C
[T1-86]*^C^C^P(LOAD "DUCT.LSP")):
[T1-87]^C^C^P(LOAD"GRD.LSP"));48;24;
[T1-88]^C
[T1-89]*^C^CLAYER;M;AN;;insert;c:/KESYM1/EL-1;DRAG;\1;1;\
[T1-90]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATTELL;DRAG;\96;;0;
[T1-91]^C^CWL;8
[T1-92]^C^C^P(LOAD "OH.LSP"));
[T1-93]^C^C^P(cond((null C:RS)(prompt "Loading...")(LOAD "RS.LSP")) (T (princ))) ^PRS;
[T1-94]^c^CLAYER;M;EQ;;insert;c:/KESYM1/WTRHTR;DRAG;\1;1;\
[T1-95]^c^CLAYER;M;F1;;insert;c:/KESYM1/TWIN;DRAG;\1;1;\
[T1-96]^C^C
[T1-97]^C^CLAYER;M;ND;;
[T1-98]^C^CLAYER;M;OH;;
[T1-99]^C^CLAYER;M;OT;;
[T1-100]^C^CLAYER;M;SN;;
[T1-101]^C
[T1-102]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P009;DRAG;\1;1;\
[T1-103]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P010;DRAG;\1;1;\
[T1-104]^C
[T1-105]^C
[T1-106]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XE5;NEAR;\1;1;\
[T1-107]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XEPJ;NEAR;\1;1;\
[T1-108]*^C^CLAYER;M;LT;;insert;c:/KESYM1/2X2LITE;INTE;\1;1;\
[T1-109]^C
[T1-110]^C
[T1-111]^c^CLAYER;M;SA;;insert;c:/KESYM1/TSTAT;DRAG;\1;1;\
[T1-112]^C^C^P(LOAD"GRD.LSP"));24;24;
[T1-113]^C
[T1-114]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-L;DRAG;\
[T1-115]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATTHEX;DRAG;\1;1;0;
[T1-116]^C^C'SETVAR;THICKNESS;8';WL
[T1-117]^c^cinsert;c:/KESYM1/MTLDKF;DRAG;\1;1;\
[T1-118]^c^cinsert;c:/KESYM1/MTLDKF;DRAG;\1;1;\
[T1-119]^c^CLAYER;M;EQ;;insert;c:/KESYM1/DRY;DRAG;\1;1;\
[T1-120]*^C^CHATCH;U;90;2.5;N;
[T1-121]^C^C
[T1-122]^C^CLAYER;M;ED;;
[T1-123]^C^CLAYER;M;wd;;
[T1-124]^C^CLAYER;M;CR;;
[T1-125]^C^CLAYER;M;PF;;
[T1-126]^C
[T1-127]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P011;DRAG;\1;1;\
[T1-128]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P012;DRAG;\1;1;\
[T1-129]^C
[T1-130]^C
[T1-131]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XWEXIT;NEAR;\1;1;\
[T1-132]*^C^CLAYER;M;OT;;insert;c:/KESYM1/XEL-2;DRAG;\1;1;\
[T1-133]*^C^CLAYER;M;DL;;insert;c:/KESYM1/DEMO2X2;INTE;\1;1;\
[T1-134]^C
[T1-135]^C
[T1-136]^c^CLAYER;M;SA;;insert;c:/KESYM1/AFD;DRAG;\1;1;\
[T1-137]^c^CLAYER;M;SA;;insert;c:/KESYM1/SDMPR;DRAG;\1;1;\
[T1-138]^C
[T1-139]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-R;DRAG;\
[T1-140]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATT-RM1;DRAG;\1;1;0;
[T1-141]*^C^CLAYER;M;EWF;;insert;c:/KESYM1/XIN;NEA;\;;\
[T1-142]^C^C^P(cond((null C:FW)(prompt "Loading...")(LOAD "FW.LSP")) (T (princ))) ^PFw;
[T1-143]^c^CLAYER;M;EW;;insert;c:/KESYM1/8INCMU;DRAG;\1;1;\
[T1-144]^c^CLAYER;M;EQ;;insert;c:/KESYM1/WASH;DRAG;\1;1;\
[T1-145]*^C^CHATCH;U;0;2.5;N;
[T1-146]^C^C
[T1-147]^C^CLAYER;M;GD;;
[T1-148]^C^CLAYER;M;EWF;;
[T1-149]^C^CLAYER;M;EM;;
[T1-150]^C^CLAYER;M;DL;;
[T1-151]^C
[T1-152]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P013;DRAG;\1;1;\
[T1-153]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P014;DRAG;\1;1;\
[T1-154]^C
[T1-155]^C
[T1-156]*^C^CLAYER;M;OT;;insert;c:/KESYM1/C-1EXIT;DRAG;\1;1;\
[T1-157]*^C^CLAYER;M;OT;;insert;c:/KESYM1/2WAYAR;CENTER;\1;1;\
[T1-158]*^C^CLAYER;M;OT;;insert;c:/KESYM1/J-BOXC;DRAG;\1;1;\
[T1-159]^C
[T1-160]^C
[T1-161]^C
[T1-162]^C
[T1-163]^C
[T1-164]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-UP;DRAG;\
[T1-165]^c^CLAYER;M;AN;;insert;c:/KESYM1/ATT-DR1;DRAG;\1;1;0;
[T1-166]^C
[T1-167]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY
[T1-168]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY
[T1-169]^C^CLAYER;M;EWF;;INSERT;18CHTCH;ENDPOINT,INT;\;;
[T1-170]*^C^CHATCH;U;90;4;N;
[T1-171]^C^C
[T1-172]^C^CLAYER;M;FP;;
[T1-173]^C^CLAYER;M;EWF;;
[T1-174]^C^CLAYER;M;EQ;;
[T1-175]^C^CLAYER;M;VC;;
[T1-176]^C
[T1-177]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P015;DRAG;\1;1;\
[T1-178]*^C^CLAYER;M;PF;;insert;c:/KESYM1/P016;DRAG;\1;1;\
[T1-179]^C
[T1-180]^C
[T1-181]*^C^CLAYER;M;OT;;insert;c:/KESYM1/C-2EXIT;DRAG;\1;1;\
[T1-182]*^C^CLAYER;M;EM;;insert;c:/KESYM1/EMERG;NEAR;\1;1;\
[T1-183]^C
[T1-184]^C
[T1-185]^C
[T1-186]^C
[T1-187]^C
[T1-188]^C
[T1-189]^c^CLAYER;M;AN;;insert;c:/KESYM1/SEC-DN;DRAG;\
[T1-190]^C^C^P(cond((null C:LD)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PLD
[T1-191]^C
[T1-192]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY
[T1-193]^C^C^P(cond((null C:KY)(prompt "Loading...")(LOAD "KY.LSP")) (T (princ))) ^PKY
[T1-194]*^C^CLAYER;M;EWF;;INSERT;18CHTCH;ENDPOINT,INT;\2;;
[T1-195]*^C^CHATCH;U;0;4;N;
[T1-196]^C
[T1-197]^C^CLAYER;M;FF;;
[T1-198]^C
[T1-199]^C
[T1-200]^C
***TABLET2
[T2-1]^H
[T2-2]^H
[T2-3]^H
[T2-4]7\
[T2-5]8\
[T2-6]9\
[T2-7]^O
[T2-8]'ZOOM W;
[T2-9]'ZOOM W;
[T2-10]'REDRAW
[T2-11]<<135
[T2-12]<<90
[T2-13]<<45
[T2-14]4\
[T2-15]5\
[T2-16]6\
[T2-17]^D
[T2-18]'ZOOM A;
[T2-19]'ZOOM A;
[T2-20]'REDRAW;
[T2-21]<<180
[T2-22]<<\
[T2-23]<<0
[T2-24]1\
[T2-25]2\
[T2-26]3\
[T2-27]^G
[T2-28]'ZOOM D;
[T2-29]'ZOOM D;
[T2-30]'REDRAW;
[T2-31]<<225
[T2-32]<<270
[T2-33]<<315
[T2-34]0\
[T2-35].\
[T2-36],\
[T2-37]^B
[T2-38]'ZOOM D;
[T2-39]'ZOOM D;
[T2-40]'REDRAW;
[T2-41]1/2\
[T2-42]1/4\
[T2-43]3/4\
[T2-44]"\
[T2-45]'\
[T2-46]@\
[T2-47]^E
[T2-48]'ZOOM PREVIOUS;
[T2-49]'ZOOM PREVIOUS;
[T2-50]'REDRAW;
[T2-51]1/8\
[T2-52]3/8\
[T2-53]5/8\
[T2-54]-\
[T2-55]/\
[T2-56]X\
[T2-57]^Q
[T2-58]'PAN;
[T2-59]'PAN;
[T2-60]'REDRAW;
[T2-61]A\
[T2-62]B\
[T2-63]C\
[T2-64]D\
[T2-65]E\
[T2-66]F\
[T2-67]G\
[T2-68]H\
[T2-69]I\
[T2-70]'REDRAW;
[T2-71]J\
[T2-72]K\
[T2-73]L\
[T2-74]M\
[T2-75]N\
[T2-76]O\
[T2-77]P\
[T2-78]Q\
[T2-79]R\
[T2-80]'REDRAW;
[T2-81]S\
[T2-82]T\
[T2-83]U\
[T2-84]V\
[T2-85]W\
[T2-86]X\
[T2-87]Y\
[T2-88]Z\
[T2-89]%\
[T2-90]'REDRAW
***TABLET3
[T3-1]$S=X $S=MOVE ^C^CMOVE
[T3-2]$S=X $S=MIRROR ^C^CMIRROR
[T3-3]$S=X $S=MEASURE ^C^CMEASURE
[T3-4]$S=X $S=FILLET ^C^CFILLET
[T3-5]$S=X $S=COPY ^C^CCOPY
[T3-6]$S=X $S=OFFSET ^C^COFFSET
[T3-7]$S=X $S=DIVIDE ^C^CDIVIDE
[T3-8]$S=X $S=FILLET0 ^C^CFILLET R 0;;
[T3-9]$S=X $S=ARRAY ^C^CARRAY
[T3-10]$S=X $S=CHAMFER ^C^CCHAMFER
[T3-11]$S=X $S=BREAK2P ^C^CBREAK \F
[T3-12]$S=X $S=SCALE ^C^CSCALE
[T3-13]$S=X $S=TRIM ^C^CTRIM
[T3-14]$S=X $S=ROTATE ^C^CROTATE
[T3-15]$S=X $S=BREAKSPL ^C^CBREAK \F \@
[T3-16]^C^C^P(cond((null C:LEXPLODE)(prompt "Loading...")(LOAD"LEXPLODE.LSP")) (T (princ))) ^PLEXPLODE
[T3-17]$S=X $S=STRETCH ^C^CSTRETCH C
[T3-18]^C^CEXPLODE
[T3-19]^C^C^P+
(defun m:p1(/ m:pa m:pc m:d m:w)(menucmd "S=X")(menucmd "S=PSEL");+
(setq m:d T)(while m:d (setq m:pc (ssget))(setq m:pa (ssname m:pc 0));+
(if(=(cdr(assoc 0 (entget m:pa))) "POLYLINE")(progn(setq m:d nil)+
(m:p2 m:pa m:pc))(progn(prompt "Entity selected is not a polyline")(terpri);+
(if (member (cdr (assoc 0 (entget m:pa))) '("LINE" "ARC"))(progn+
(initget "Yes No")(setq m:w (getkword "Do you want to turn it into one? <Y>"));+
(if (or (= m:w "Yes")(null m:w))(progn(setq m:d nil)(menucmd "S=X");+
(menucmd "S=P0")(command "PEDIT" m:pa "yes" pause)))))))))+
(defun m:p2(m:pa m:pc / m:pb)(menucmd "S=X")+
(if (= (setq m:pb (cdr (assoc 70 (entget m:pa)))) nil)(menucmd "S=P0");+
(progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(menucmd "S=P16");+
(if(< m:pb 4)(menucmd "S=P0")(menucmd "S=P8")))))(command "PEDIT" m:pa pause))+
(defun perror (msg)(setq *error* m:err m:err nil)(princ))+
(defun C:PEDITM (/ m:err)(setq m:err *error* *error* perror)(m:p1);+
(setq *error* m:err m:err nil)(princ))(princ) PEDITM ^P
[T3-20]^c^c^cattedit
[T3-21]^C(ASVE);
[T3-22]^C(ASVE);
[T3-23]^C^C^P(cond((null C:et)(prompt "Loading...")(LOAD"et.lsp")) (T (princ))) ^Pet t
[T3-24]^C^C^P(cond((null C:et)(prompt "Loading...")(LOAD"et.lsp")) (T (princ))) ^Pet e
[T3-25]^c^c^C(ASVE);
[T3-26]^c^c^C(ASVE);
[T3-27]$S=X $S=OSNAPC ^C^COSNAP
[T3-28]$S=X $S=OSNAPC ^C^COSNAP
[T3-29]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX)
[T3-30]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX)
[T3-31]^C^CU
[T3-32]^C^COOPS
[T3-33]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX)
[T3-34]^P(cond((null SSX)(prompt "Loading...")(LOAD"SSX.lsp")) (T (princ))) (SSX)
[T3-35]^C^CCHPROP
[T3-36]^C^CCHPROP
***TABLET4
[T4-1];
[T4-2];
[T4-3];
[T4-4];
[T4-5];
[T4-6];
[T4-7];
[T4-8];
[T4-9];
[T4-10];
[T4-11]$S=X $S=LINE ^C^CLINE
[T4-12]$S=X $S=PLINE ^C^CPLINE
[T4-13]$S=X $S=CIRCLE ^C^CCIRCLE
[T4-14]$S=X $S=ARC ^C^CARC
[T4-15]$S=X $S=ELLIPSE ^C^CELLIPSE
[T4-16]*^C^CERASE
[T4-17]ENDPOINT
[T4-18]MIDPOINT
[T4-19]INTERSECTION
[T4-20]CENTER
[T4-22]NODE
[T4-23];
[T4-24];
[T4-25];
[T4-25];
[T4-26]$S=X $S=LIST ^C^CLIST
[T4-27]$S=X $S=LIST ^C^CLIST
[T4-28]^C^C^CIB
[T4-29]$S=X $S=ATTDEF ^C^CATTDEF
[T4-30]$S=X $S=ATTDEF ^C^CATTDEF
[T4-31]$S=X $S=WBLOCK ^C^CWBLOCK
[T4-32]$S=X $S=BLOCK ^C^CBLOCK
[T4-33]$S=X $S=MINSERT ^C^CMINSERT
[T4-34]$S=X $S=INSERT ^C^CINSERT
[T4-35];
[T4-36]$S=X $S=POLYGON ^C^CPOLYGON
[T4-37]$S=X $S=POINT ^C^CPOINT
[T4-38]^C^CSOLID
[T4-39]^C^CRC
[T4-40]^C^CDONUT
[T4-41]*^C^CERASE
[T4-41]NEAR
[T4-42]QUAD
[T4-43]PERP
[T4-44]INSERT
[T4-45]TANG
[T4-47]^C^CDIST
[T4-48]^C^CSTATUS
[T4-49]$S=X $S=DTEXT ^C^CDTEXT
[T4-50]$S=X $S=DTEXT ^C^CDTEXT A
[T4-51];
[T4-52];
[T4-53];
[T4-54];
[T4-55];
[T4-56];
[T4-57];
[T4-58];
[T4-59];
[T4-60];
[T4-61];
[T4-62];
[T4-63];
[T4-64];
[T4-65];
[T4-66];
[T4-67];
[T4-68];
[T4-69];
[T4-70];
[T4-71];
[T4-72]$S=X $S=AREA ^C^CAREA
[T4-73]$S=X $S=id ^C^Cid
[T4-74]$S=X $S=DTEXT ^C^CDTEXT F
[T4-75]$S=X $S=DTEXT ^C^CDTEXT M
[T4-76]^C^CDIM1 STATUS
[T4-77]'setvar dimtsz 0;'SETVAR DIMASZ 4;
[T4-78]'SETVAR;DIMtsz;4;
[T4-79]'SETVAR;DIMSCALE
[T4-80]'SETVAR;DIMASO
[T4-81]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl)
[T4-82]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl)
[T4-83]$S=X $S=DIMLINEAR CONTIN
[T4-84]$S=X $S=DIMLINEAR ^C^C^CDIM HORIZ
[T4-85]
[T4-86]^C^C^P(IF(= (GETVAR"QTEXTMODE") 1)(SETVAR"QTEXTMODE"0)(SETVAR"QTEXTMODE"1))
[T4-87]^B
[T4-88]^C^CSNAP R ;0
[T4-89]^C^CSNAP R ;60
[T4-90]$S=X $S=GRID ^C^CGRID 1
[T4-91]'SETVAR APERTURE 2;
[T4-92]'SETVAR PICKBOX 2;
[T4-93]^C^CSTYLE M1;; .9;;;;;
[T4-94]^C^CSTYLE M2;; .9;;;;;
[T4-95]^C^CSTYLE M3;; .9;;;;;
[T4-96];
[T4-97]^C^CDBLIST
[T4-98]6C^CTIME
[T4-99]$S=X $S=DTEXT ^C^CDTEXT R
[T4-100]$S=X $S=DTEXT ^C^CDTEXT C
[T4-101]UNDO
[T4-102]'setvar dimtsz 0;'SETVAR;DIMASZ;6;
[T4-103]'SETVAR;DIMtSZ;6;
[T4-104]]'SETVAR;DIMTXT;
[T4-105]'SETVAR;DIMTOFL;
[T4-106]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl);
[T4-107]^p(cond((null dimsetl)(prompt "Loading...")(LOAD"dsl.lsp")) (T (princ))) (dimsetl);
[T4-108]$S=X $S=DIMLINEAR BASELINE
[T4-109]$S=X $S=DIMLINEAR ^C^C^CDIM VERT
[T4-110];
[T4-111]^C^C^P(IF(= (GETVAR"BLIPMODE") 1)(SETVAR"BLIPMODE"0)(SETVAR"BLIPMODE"1))
[T4-112]^G
[T4-113]^C^CSNAP R ;15
[T4-114]^C^CSNAP R ;75
[T4-115]$S=X $S=GRID ^C^CGRID 12
[T4-116]'SETVAR APERTURE 3;
[T4-117]'SETVAR PICKBOX 3;
[T4-118]^C^CSTYLE T1;; .9;;;;;
[T4-119]^C^CSTYLE T2;; .9;;;;;
[T4-120]^C^CSTYLE T3;; .9;;;;;
[T4-121];
[T4-122]^C^CLAYER;
[T4-123]^C^CLAYER S;
[T4-124]^C^C^P(cond((null C:TC)(prompt "Loading...")(LOAD "C:/ACAD/TC.LSP")) (T (princ))) ^ptc
[T4-125]^C^C^P(cond((null C:IT)(prompt "Loading...")(LOAD "C:/ACAD/IT.LSP")) (T (princ))) ^PIT
[T4-126]'REDRAW
[T4-127]'setvar dimtsz 0;'SETVAR;DIMASZ;12;
[T4-128]'SETVAR;DIMtSZ;12;
[T4-129]^C^CDIM1 STATUS
[T4-130]'SETVAR;DIMTOH;
[T4-131]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
[T4-132]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
[T4-133]$S=X $S=DIM ^C^CDIM LEADER
[T4-134]$S=X $S=DIM ^C^CDIM ANGULAR
[T4-135]
[T4-136]$S=X $S=AXIS ^C^CAXIS ON
[T4-137]$S=X $S=DRAGMODE ^C^CDRAGMODE ON
[T4-138]^C^CSNAP R ;30
[T4-139]$S=X $S=SNAP ^C^CSNAP
[T4-140]$S=X $S=GRID ^C^CGRID 24
[T4-141]'SETVAR APERTURE 4;
[T4-142]'SETVAR PICKBOX 4;
[T4-143]^C^CSTYLE SX1;; .9;;;;;
[T4-144]^C^CSTYLE SX2;; .9;;;;;
[T4-145]^C^CSTYLE SX3;; .9;;;;;
[T4-146];
[T4-147]^C^C^P(cond((null C:GF)(prompt "Loading...")(LOAD"GF.LSP")) (T (princ))) ^PGF
[T4-148]^C^C^P(cond((null C:BN)(prompt "Loading...")(LOAD"bn.LSP")) (T (princ))) ^PBN
[T4-149]^C^C^P(cond((null C:CC)(prompt "Loading...")(LOAD"CC-LT.LSP")) (T (princ))) ^PCC
[T4-150]^C^C^P(cond((null C:FW)(prompt "Loading...")(LOAD"FW.LSP")) (T (princ))) ^PFW
[T4-151]EXIT;$S=X $S=S
[T4-152]'SETVAR;DIMexo;6;
[T4-153]'SETVAR;DIMexe;6;
[T4-154]$S=X $S=VAR1 ^C^CDIM
[T4-155]'SETVAR;DIMTOL;
[T4-156]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
[T4-157]^p(cond((null dimsetr)(prompt "Loading...")(LOAD"dsr.lsp")) (T (princ))) (dimsetr);
[T4-158]$S=X $S=DIM ^C^CDIM DIAMETER
[T4-159]$S=X $S=DIM ^C^CDIM ROTATED
[T4-160]
[T4-161]$S=X $S=AXIS ^C^CAXIS OFF
[T4-162]$S=X $S=DRAGMODE ^C^CDRAGMODE OFF
[T4-163]^C^CSNAP R ;45
[T4-164]^C^CDRAGMODE A
[T4-165]^G
[T4-166]'SETVAR APERTURE;
[T4-167]'SETVAR PICKBOX;
[T4-168]^C^CSTYLE R1;; .9;;;;;
[T4-169]^C^CSTYLE R2;; .9;;;;;
[T4-170]^C^CSTYLE R3;; .9;;;;;
[T4-171]
[T4-172]^C^C^P(cond((null C:LF)(prompt "Loading...")(LOAD"LF.LSP")) (T (princ))) ^PLF
[T4-173]^C^C^P(cond((null C:LO)(prompt "Loading...")(LOAD"LF.LSP")) (T (princ))) ^PLO
[T4-174]^C^CLINETYPE;LOAD;*;KEELINE;
[T4-175]^C^C^P(cond((null C:PLT)(prompt "Loading...")(LOAD"PLOT.LSP")) (T (princ))) ^PPLT
[T4-176];
[T4-177]'SETVAR;DIMexo;12;
[T4-178]'SETVAR;DIMexe;12;
[T4-179]'SETVAR;DIMASZ;
[T4-180]'SETVAR;DIMZIN;
[T4-181]$S=X $S=DIM ^C^CDIM1
[T4-182]$S=X $S=DIM ^C^CDIM CENTER
[T4-183]$S=X $S=DIM ^C^CDIM RADIUS
[T4-184]$S=X $S=DIMLINEAR ^C^CDIM ALIGNED
[T4-185]
[T4-186]^C^CLL
[T4-187]^C^CPURGE
[T4-188]^C^C^CSAVE
[T4-189]^C^C^CSAVE
[T4-190]^C^CPLOT
[T4-191]^C^CPRPLOT
[T4-192]^C^CFILES
[T4-193]^C^CHELP
[T4-194]^C^CEND;
[T4-195]^C^CZA
[T4-196]
[T4-197]^C^C^P(cond((null C:RS)(prompt "Loading...")(LOAD"RS.LSP")) (T (princ))) ^PRS
[T4-198]^C^C^P(cond((null C:FL)(prompt "Loading...")(LOAD"FL.LSP")) (T (princ))) ^PFL
[T4-199]^C^C^P(cond((null C:DL)(prompt "Loading...")(LOAD"DL.LSP")) (T (princ))) ^PDL
[T4-200]^C^C^P(cond((null C:er)(prompt "Loading...")(LOAD"er.lsp"))(T(princ)))^Per